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a fixed-length string - V1 semantics 16-Sep-19 :02: AX-11 Bliss-32 V4.0-74 Page 1) 

: . 1e738p-198e 93:91:80  Epasetu SResPaSREAgT] 6$2;1 | 

| 
; 1 0001 0 MODULE PASSREAD_STRING!1 ( araTye "Read a Fined=Lenert string - V1 semantic s' ; 
; ¢ 404 8 IDENT = '1-001' ! File: PASREAST1. A 2 Edit: $BL1001 . 
3 000 d= ; 
; 4 0004 1 BEGIN ; 
; 5 0005 1! ; 
s § Oboe 1 LRA REAR AEA ERE REAR EAA P 
: 00 , 38 ; 
cS 0008 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 B ’ | ; 
3 9 0009 1 '* DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * ; 
: 19 Bao : :* ALL RIGHTS RESERVED. * ; 
4 . ® | . 
: i Bei ¢ 1 !* THIS SOFTWARE aS FURNISHED sven ‘ gh ICENSE AND MAY BE USED AND copieD * ; 
oy 0015 1 !* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * | H 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NO I ef THIS SOFTWARE OR ANY OTH * ; 
.. 1 0015 1 !* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
es 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
; V7 0017 1* TRANSFERRED. * : 
3 '® * ; 
; WY 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO Fey WITHOUT NOTICE * : 
; @& 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $3 ons, ! ‘ CORPORATION. * ; 
3 '® * | ° 
a ae 6098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 624 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; 0025 1 !* * : 
5 @ 0026 1 !* * ; 
: eo? QO27 1 eee eee eee RRR : 
; oe 0028 1! | 3 
; $3 594 1 ; 
3 0 0030 1 !++ ; 
ea 0031 1 ! FACILITY: Pascal Language Support ; 
> m= 0032 1} : 
oo. ae 0033 1 | ABSTRACT: 3 
; 0034 1! ; 
; 0035 1! This module contains a preseeues which reads a fixed-length string 3 
; 3 Boss : from a textfile using the semantics of VAX-11 Pascal V1. | : 
3 $ site : ENVIRONMENT: User mode - AST reentrant | : 
s re Bees : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | : 
; & 0042 1 ! MODIFIED BY: : 
; 635 0043 1! : 
: «644 0044 1! 1-001 - Original. SBL 1-April-1981 ; 
; 65 0045 1 i- 3 
; 646 0046 1 : 


] 
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PASSREAD_STRING Read a fixed-length string - V1 semantics 1heSep 1984 AX-11 Bliss-32 v4.0 Page PA 
1-001 Declarations ° . 14-Sep -1984 93: 94 $$ PASRTL.SR CIPASREAST1. if 231 ° (25 wnt 
,; 68 047 1 &SBITL ‘Declarations’ | ; 
3; 69 Bes 1! | . 
3 0 ¢ 1 ! PROLOGUE DEFINITIONS: | $ 
3 1 $0 1! ; 
: ¢ B84 1 . 
; 27 936 : REQUIRE 'RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures ; 
$ | . 
;. O17 1! ; 
3 56 118 1 =! TABLE OF CONTENTS: : 
:. i 0119 1! ; 
:. 2 0120 1 : 
$ 59 3 1 1 FORWARD ROUTINE , 
; 60 1 ¢ 1 PASSREAD prajuets NOVALUE, ' Read strin | 
=. 01 1 LOCAL_HANDLER ' Local condition handler 
3 6s 0124 1 
; 6 0125 1! 
; 664 0126 1 ! MACROS: 
, 65 0127 1! 
; & 0128 1! NONE 
:- OF O1¢2 1! 
3 68 0130 1 ! EQUATED SYMBOLS: 
3 69 0131 1! 
: 70 o1s¢ 1 | NONE | 
s 71 01 1! 
; 72 0134 1 ! FIELDS: 
; 75 0135 1! 
: 74 0136 1! NONE 
oe 0137 1! 
; 76 0138 1 ! OWN STORAGE: 
get i 0139 1! 
; 78 0140 1! NONE 
; 79 0141 1! 

| 
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PASSREAD_STRING Read a fixed-length string - V1 semantics 16-Sep-1984 02:02: AX-11 Bliss-32 V4.0-74 Page 3. 
1-001 P READ. STRING] >= READ a string with vi semant 14-8ep-19 4 95:09:86 PASRTL.SRCJPASREAST1.B32;1 . (3). 
1 ZSBTTL "PASSREAD_ STRING] = READ a string with V1 semantics’ 
¢ GLOBAL ROUTINE PASSREAD_STRING1 ( ! READ a@ string 
STRING: REF VECTOR C, BYTE), ' String to read into 
84 PFV: PASSPFV_FILE_VARIABLE, ! File variable 
85 STRING_LENGTH: WORD, ! Length of string 
86 ERROR ! Error unwind address 
87 ) : NOVALUE = 
88 
89 +4 
4 FUNCTIONAL DESCRIPTION: 
9 This procedure reads a fixed-length ay ten from the specified textfile. 
9 If the string length is less than the number of characters remaining 
94 in the current Line, only STRING_LENGTH characters will be read, 
% otherwise the string will be padded with blanks. 


This procedure will be referenced by the compiled code if the 

module has been compiled with the /OLD_VERSION qualifier so as to 
comply with the semantics of VAX-11 Pascal V1. The ony difference 
between this procedure and PASSREAD_ STRING is that in this procedure, 
if the file is currently at end-of-Tine, a GET is done before 
reading characters. 


This procedure vises onty metic “single-dollar’’ interfaces to the 
resi of the Pascal Run-Time Library. This is so that this module 
Pay be excluded ‘rom the shareable image PASRTL.EXE 


sev ing the string address passed as the first 
Broce ure parameter, in accordance with the 
AX Procedure Calling Standard. 


SAE 


CONAUE Ww Doo RUN WRI — OOS OU UNNI OO D0 Or ah > DOO Orne aNO OOo Onn rete bad 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ree ee ee eee er er er er er er er er er rr er er er er er er rr 
RP DE AES 6 tet try tet epee BPR PR PRN RP AS Vr AAAAAOAMMNNNIMNVNI ES PEELE w 


fale le lelelelelelolelelelalelolelololajalelojalalalelelolelolelelololelolololololololololololol ola) 


' 
i 
i 
i 
i FORMAL PARAMETERS: 
4 


97 
98 
99 
100 
3 
108 
104 
105 
106 
107 
198 CALLING SEQUENCE: 
110 STRING. wt.r = PASSREAD_ STRING] (PFV.mr.r, STRING_LENGTH.rwu.v 
111 C, ERROR. ja.rJ) 
aT 
1 
115 PFV - The Pascal File Variable (PFV) passed | reference. 
138 The structure of the PFV is defined in PASPFV.REQ. 
18 STRING_LENGTI4 = The Length of the string to read. 
120 ERROR - Optional. If specified, the address to unwind to 
1¢1 in case of an error. 
158 IMPLICIT INPUTS: 
is 
125 NONE 
126 
44 IMPLICIT OUTPUTS: 
3.4 NONE 
130 
13 ROUTINE VALUE: 
138 STRING - The string read, returned as a function value by 
1 
1 
1 


we 
~ 


Sete Se ee Ce Sete Se Seen Ge ee Fe Se ee Se ae 
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PAZSREAD STRING Read a fixed-length string - v1 semantics 18-Sep-19 ) 06:06:40 AX-11 at V4.0-74 Page 4 
1-001 PASSREAD_STRING! = READ a string with V1 semant 14-Sep-1984 12:51: PASRTL.SRCJPASREAST1.8352;1 (3) 
; 138 0398 1! If an error occurs and is continued by a user handler, 
; Fe 4 89 : } the result returned is a blank string. 
: Pe 0 03 ! SIDE EFFECTS: 
3 148 8 Be \ If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
> 145 8 06 1 ! SIGNALLED ERRORS: 
: 146 07 1! 
3 147 0208 1! 
: 148 0209 1 !-- 
: 149 8 10 1 
3 390 11 BEGIN 
: 151 0 \§ 
3 136 021 OCAL . : 
: 0214 CHARS REMAINING ! Number of characters remaining in Line 
; 154 0215 FCB: REF SPASSF(B CONTROL _BLOCK,! File Control block | 
: 155 0216 PFV_ADDR: VOLATILE, ! Enable argument 
: 156 ogi2 UNWIND_ACT: VOLATILE, ' Enable argument 
: 157 0218 ERROR_ADDR: VOLATILE; ! Enable argument 
; 158 0219 2 
; 1) oss9 § BUILTIN 
; 4 ose) ACTUALCOUNT; ! Count of arguments | 
3 16g 0553 ENABLE 
F \a7 osse LOCAL_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
3; 165 0226 ie 
> 166 0227 ' Get ERROR parameter, if present. 
3 67 0228 le 
; 168 $594 
: 169 0230 IF ACTUALCOUNT () GEQU 4 
: 170 0231 THEN 
3 iF bees ERROR_ADDR = .ERROR; ! Set unwind address 
; 18 0234 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
: 174 0235 
s 175 osa9 + 
: 176 0237 ! The V2 semantics for read of a string sey that if you are at EOLN, 
3 177 0238 ! then an empty string is returned. In other words, read of a string 
; if 0239 : does not read past EOLNs. The V1 semantics, however, say that if 
; 179 0240 ' you are at EOLN, you first do a GET to go to the next Line. So, 
; 180 0241 ! find out if we are at EOLN, and if so, do a GET. 
: «181 ose6 !- 
3 136 024 
; \e) nese IF PASSEOLN2 (PFV CPFVS$R_PFV)) 
: «#185 0246 PASSGET (PFV CPFVSR_PFV]); 
; «4186 47 
3: 187 $8 '¢ 
; 188 % ' Now call the V2 read string routine. 
: 150 0581 is 
2 4 0954 PASSREAD_STRING (STRING CO], PFV CPFVSR_PFV], .STRING_LENGTH); 
: 19 0954 RETURN; 
3 194 0255 
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PASEREAD STRING] READ aostring eten Virsemant lecgep1984 15554 280 
' 


: 195 0256 1 END; 
TITLE 
IDENT 
EXTRN 
EXTRN 
EXTRN 
PSECT 
oon 00000 ENTRY 
5E 08 ¢ poe SUBL2 
7E bf 000 CLRL 
9 AE C 00007 CLROQ 
6D 0036 CF DE QO00A MOVAL 
04 6C 91 QOO0F MPB 
04 1F 00012 BLSSU 
6E 10 AC 00 00014 OVL 
08 AE 08 AC DO 00018 18: MOVL 
08 AC DD 00010 PUSHL 
00000000G 00 01 FB 00020 CALLS 
OA 50 €9 00027 BLBC 
08 AC DD 0002A PUSHL 
00000000G 00 01 FB B08 D CALLS 
7 Oc AC 3C 00034 2$: MOVZWL 
7E 04 § 7D 00038 MOVQ 
00000000G 00 03 FB 44544 CALLS 
04 0004 RET 
0000 00044 3$: . WORD 
50 08 AC DO 00046 MOVL 
50 04 AO DO 0004A MOVL 
F4 AQ 9F QOO4E PUSHAB 
F8 AQ 9F 00051 PUSHAB 
FC AO 9F 00054 PUSHAB 
03 oD 00057 PUSHL 
5E bp 00059 PUSHL 
7E 04 aC 70D 00058 Ove 
0000v CF 03 FB O005F CALLS 
04 00064 ET 
; Routine Size: 101 bytes, Routine Base: _PASS$CODE + 0000 


196 0257 1 
197 0258 1 !<BLF/PAGE> 


PASSREAD_STRING1 Read a fixed-length string 
1 semantics 


\1-001\ 
PASSREAD_STRING1 
PASSEOLN2, PASSGET 
PASSREAD_ STRING 


_PASSCODE ,NOWRT, 


PASSREAD_STRING1, Save nothing 


ERROR ADDR 
YNWIN6 ACT 
$, (FP) 
(AP), #4 

1$ 


ERROR, ERROR_ADDR 
PFV, PFV_ADDR 


PFV 
#1, PASSEOLN2 
RO, 2$ 


#1, PASSGET 
STRING_LENGTH, -(SP) 


TRING, 


5 =(SP) 
#3, PASSREAD_STRING 


Save nothing 
8(AP), RO 


4(AP), =(SP) 
#3, LOCAL_HANDLER 
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PASSREAD_STRING Read a fixed-length string - V1 semantics 1b-S6 1984 02:02: AX-11 Bliss-32 V4.0-74 Page | 
1-801 LOCAL_HANDLER = Local handler 12-88-18 95:99:86 PASRTL. RC IPASREASTI.B 2;1 : (45 | 
> 199 59 1 ZSBTTL ‘LOCAL_HANDLER = Local handler’ 
; 200 60 1 ROUTINE LOCAL HANDLER ( 
; 201 61 1 IGNAC_ARGS: REF BLOCK C, BYTE), ! Signal arguments array 
; Oe 62 1 MECH ARGS: REF BLOCK [ ByTEI. i Mechanism arguments array | 
3 03 63 ve ENABCE_ARGS: REF VECTOR C, LONG) i Enable arguments array | 
; 205 65 1 
3 BS 96 1 S++ 
; 44 8 of : ; FUNCTIONAL DESCRIPTION: | 
; 209 0269 1! This is the condition handler enab!'«0 by PASSREAD_STRING1. | 
>; 210 0270 1! If the current signal is a Pascal crror on the file our establisher 
> 211 0271 1! was called with, we unwind to tne caller of PASSREAD_STRING1 
: ig 0 Lf ,: with RO being the status code of the error. 
: 21 0273 1 | | 
: 214 0274 1! 
; $1 af 1 | CALLING SEQUENCE: 
3s a7 0 § 1: status.wlc.v = STATUS_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra, 
> 218 0278 1! ENABLE -ARGS.rl.rad 
> 219 0279 1! 
; 220 0280 1 ! FORMAL PARAMETERS: 
3 ger 0281 1! 
; $$¢ Ose¢ 1! SIGNAL_ARGS - The signal argument List. 
s ge 0285 1! 
; 224 osee 1! MECH_ARGS - The mechanism argument List. 
3 gee 0285 1! 
; 226 0286 1! ENABLE _ARGS - An array with the following | 
3 6 ¢er 0287 1! format: 
; 228 0288 1! 
: 39 670) 45 8 =«-=_———_ ( i( (i iinet 
; 230 0290 1: { €NB_COUNT | <== ENABLE_ARGS 
: $3 0291 . 2 $eeowecoeoccccoecs | 
; 232 0292 1! ! ENB_PFV_ADDR } 
; gos 0293 1! teeewesnnesenene- 
: 234 0294 1! ' ENB_UNWIND_ACT | | 
3 235 0295 . 3 ¢eeecececococeceocn 
: 236 0296 1! ! ENB_ERROR_ADDR | 
3 tH 0297 1!$ = = = ten tommmnsomenmns 
: 238 0298 1! 
: 239 0299 1! ENB_COUNT is the count of following enable arguments. | 
: re Bane ! The count is always at least 2. 
; 4g Ba06 1: ENB_PFV_ADDR - If non-zero, the address of a longword 
3 vb O30z ! containing the PFV our establisher is operating on. 
3: 245 Bape 1! ENB_UNWIND_ACT = Specifies the action 
: 246 $09 ,: to take on an unwind. The values are: 
3: 247 0307 1! PASSK_UNWIND_NOP = Do nothing | 
3 28 B308 : PAS$K_UNWIND_UNLOCK = Unlock PFV | 
; 20 B39 : : ENB_ERROR_ADDR - Ignored here. | 
; 26 O32 : : IMPLICIT INPUTS: 
3: 256 $314 1! The signatter's PFV placed as the first FAO argument in the primary 
3s 235 0315 1! signalled message. 
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PASSREAD_STRING Read a fixed-length string - V1 semantics 1b-$0 1984 02:02: AX-11 Bliss-32 V4.0-74 Page 7.) 
1-001 LOCAL_HANDLER = Local handler 1 =300 138% 95:09:86 PASRTL. RCIPASREASTI 882;1 " (4) 
; 16 1! 
; . 17 1 ! IMPLICIT OUTPUTS: 
H 8 18 1} 
; 9 19 1! NONE 
; 260 ae 
; 261 1 1 >! ROUTINE VALUE: 
3 6¢ 4 1! | 
>; 26 1! SS$_RESIGNAL 
; 264 4 1! 
; 265 5 1 ! SIDE EFFECTS: 
ee ” 
3 : ay cause an unwind. 
; 268 6 8 i! 
; 269 0329 1 !-- | 
: 270 0330 1 
> 271 83 1 BEGIN 
3 Le 3 ¢ 
; 7 03 LITERAL 
: 274 Otee ENB_COUNT = 0, ! Count of enable arguments 
; 27s 0335 ENB_PFV_ADDR = 1 ! Address of address of PFV 
> 276 0336 ENB_UNWIND ACT= 2 i Address of unwind action | 
3 a SH E4 ENB-ERROR_ADDR = $; ! Address of address of unwind PC | 
; 279 0339 '¢ | 
; 280 0340 ! Determine if this is an unwind. If so, resignal. | 
; 281 0341 ! Otherwise, see if we should cause an unwind. 
; og tak: te 
; 28 034 
; 384 0344 IF .SIGNAL_ARGS CCHFS$L_SIG_NAME] EQLU SS$_UNWIND 
; 286 B39 RETURN SS$_RESIGNAL; 
; 288 0348 2 IF ..ENABLE_ARGS CENB_ERROR_ADDR] NEQ 0 ! Error:=Continue specified? 
; 289 0349 THEN 
; 290 0350 BEGIN 
; 291 0351 
; 29 0326 LOCAL : 
; 29 035 COND_NAME: BLOCK (4, BYTE], ! Primary condition name 
> 294 0354 COND_CODE; ! Sequence number of error 
; 2s 0355 
: 296 0356 '¢ 
: 297 0357 ! Get primary condition name. 
; 298 0358 le 
3; ¢99 0359 
; “+4 Oa; COND_NAME = .SIGNAL_ARGS CCHFSL_SIG_NAME); 
; 30 B06 ‘e | 
: 4 036) :_Is this a PAS$ error? If not, resignal. 
; 305 65 
; 4] iv gree JUS CSTS$V_FAC_NO] NEQU PASS_FACILITY | 
; 4 i RETURN SS$_RESIGNAL; | 
; 310 0 '¢ 
; (311 0371 ! See if the error message is one which is ‘trapped’ 
: 35312 0372 ! by ERROR:=CONTINUE. This is done by comparing the 
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PASSREAD_STRING Read a fixed-length string = V1 semantics 19-3007 13%% 05:05:98 AX=11 Oh ieee Vi 20786 Page 8 
1 1 LOCAL_HANDLER = Local handler 14-Sep-1984 331s PASRTL.SRCJPASREAST1.852;1 (4) | 
3 ? ih :_ message number against a select range. 
; 315 75 
; 18 78 COND CODE = .COND NAME SAB: CODE); ! Get error number 
; 1 7 IF .COND_CODE GEQO PASSSK_MSGCONTLO AND ! Lowest number 
; 318 4 -COND_CODE LEQU PASSSK_MSGCONTHI ! Highest number 
; 319 7 THEN 
: 0 80 4 BEGIN 
3 1 8 5) 4 
; ¢ ¢ 4 '+ 
3 0385 4 ' See if the PFVs match. The signaller'’s PFV is the 
3 ¢ 8 ft ? first FAO parameter in the primary message. 
: 326 0386 4 
; 7 0 a & IF .SIGNAL_ARGS (12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDR] 
3 329 tt ? THEN 
3 $8 $350 4 ! We want to unwind to the PC specified in the enable argument 
s 33) 0391 4 ! error address. 
3 336 O336 4 te 
s 2S 0393 4 
3 $3¢ 0394 5 BEGIN 
H 35 0395 6 IF NOT SUNWIND (NEWPC=..ENABLE_ARGS CENB_ERROR_ADDRJ) 
; 336 0396 5 THEN 
; 337 0397 5 SIGNAL_STOP (PAS$_BUGCHECK,1,BUG_UNWINDFAIL); 
3 $36 0398 4 ND; 
; 339 0399 3 END; 
; 340 0400 2 END; 
; 341 0401 2 
; s8 rt § RETURN SS$_RESIGNAL; ! Resignal error 
3; 344 0404 1 END; ! End of routine LOCAL_HANDLER 
e-EXTRN PASS_FACILITY, PASSS$K_MSGCONTLO 
“EXTRN PAS$SK_MSGCONTHI 
-EXTRN SYSSUNQIND, PAS$_BUGCHECK 
0004 00000 LOCAL_HANDLER: 
«WORD Save R2 : 0260 
51 04 aC 00 00002 MOVL SIGNAL ARGS R1 3; 0344 
00000920 &F 04 Al O01 90006 CMPL = &(R1) , #2336 ; 
52 1 itd BEQL 1$ : 
50 Oc AC D 1 MOVL ENABLE_ARGS, RO 3; 0348 
0c BO D5 00014 TSTL a12(ROy : 
49 13 00017 BEQL 1$ 3 
52 04 Al 00 00019 MOVL 4(R1) ~~ NAME ; 0360 
006 52 0c 10 FD 9019 CMPZV #6, #12, COND_NAME, S*PASS_FACILITY ; 0366 
52 52 gc EF 8 4 EXTZV i, #12, COND_NAME, COND CODE F 0378 
00000000G_ 8&F h 9 arety FOND CODE. #PASS$$K_MSGCORTLO : 0377 
00000000G_ 8F § H perky |e #PASS$K_MSGCONTHI : 0378 
04 = B80 Oc 8 6Al «CO CMPL 12(R1), @4(RO) ; 0387 
20 12 0040 BNEQ 1$ 3 


PASSREAD_STRING Read a fixed-length string - V1 semantics 18-Se0-1984 9g: gg: ¢0 AX-11 BLi isg5 -32 V rae 
1-001 LOCAL_HANDLER = Local handler 14-Sep-1984 PASRTL. BR C PASREA 397 -B52;1 
oc 50 DD Ooee PUSHL a12(R0) 
D4 4 CLRL (SP) 
000000006 00 4 047 CALLS . » SYSSUNWIND 
11 E O4E BLBS , i$ 
DD 5 PUSHL i 
1 OO PUSHL 
000000006 F DD PUSHL SPAS rehcfop. 
000000006 00 3 FB 00 CALLS #3504 
50 0918 8F 3C 00062 1$: MOVZWL # $28 
04 0006 RET 


; Routine Size: 104 bytes, Routine Base: _PASS$CODE + 0065 


0405 1 
0406 1 !<BLF/PAGE> 


M12 


Elapsed Time: 00: fa: 5 
Lines/CPU Min: 3740 
Lexemes/CPU-Min: 9804 
pee | Used: 70 pages 
Compila 


tion Complete 


PASSREAD_STRING Read a fixed-length r*cing - V1 semantics o=$e0= 138% 96: Qe: 8 AX-11 Bliss-32 V4.0-7 Page 10| PA 
1-001 LOCAL_HANDLER = Local handler Lhe 1984 PASRTL.SRCJPASREAST1. 5 2;1 (5) 

> 348 0407 1 END ! End of module PASS$READ_STRING1 | ; 
; 349 408 1 : 
; 350 409 0 ELUDOM | : 
| 
.EXTRN LIBSSTOP | ; 
H PSECT SUMMARY : 
; Name Bytes Attributes ; 
: PASSCODE 205 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
: Library Statistics 
[tee ee, ee ee Syabols qce<<o<- Pages Processing ; 
: File Total Loaded Percent Mapped Time ‘ 
: _$255$DUA28: fT ge yn A ob 3a; 9776 7 0 581 00:01.0 ; 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 87 20 33 00:00.4 : 
| ; 
HY COMMAND QUALIFIERS : 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L ISS: PASREAST1 /0B)=08J8 : PASREAST! MSRC$:PASREAST1/UPDATE=(ENH$:PASREAST1 ; 
Run Time: 3 


Size: 205 code 3 0 data bytes 
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AND PROPRIETARY 
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